home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Conquest 1.1.sea / Conquest 1.1 / generic-player / select-country.lisp / select-country.lisp
Encoding:
Text File  |  1993-02-14  |  868 b   |  31 lines  |  [TEXT/CCL2]
  1. ;;; select-country.lisp
  2. ;;;
  3. ;;; CONQUEST AI PROJECT
  4. ;;;
  5. ;;; Washington University Computer Science Department
  6. ;;; Copyright 1993 Paul McCartney.  All Rights Reserved.
  7. ;;;
  8. ;;; AUTHOR:  
  9. ;;;
  10. ;;; DESCRIPTION:
  11. ;;;
  12. ;;; This file is a player's select country module, containing code for determining
  13. ;;; a country to select during the first round of Conquest.
  14. ;;;
  15. ;;; USE:
  16. ;;;
  17. ;;; Define the method called "select-country".  This method will be called from the
  18. ;;; control object as needed.
  19. ;;;
  20. ;;; >> Change all occurrences of "generic" to a unique identifier (e.g. your login name)
  21.  
  22. (in-package :generic)
  23.  
  24.  
  25. ;;; To override the default "basic-player" behavior, replace the "call-next-method"
  26. ;;; call with code to decide an attack move.  This method should return:
  27. ;;;
  28. ;;;     <available-country>
  29. ;;;
  30. (defmethod select-country ((player generic-player))
  31.   (call-next-method))